00100	C SHORT VERSION OF MANFRED'S TVIOF.F4: LOAD WITH PLOUX.F4 AND PLTMAN.F4
00150	C  THIS DISPLAYS OR PLOTS PROCESSED FILES ONLY.  12/73
00200
00210	C  TYPE <CR> TO REPEAT LAST FILE READ IN.
00220	C  TYPE  'X'  TO EXIT, TYPE  'SAVE'  TO SAVE FILE FOR DRAWING PROG.
00230	C  TYPE  'T'  TO TYPE LIST OF ALL YOUR CURRENT INPUT.
00240	C  TYPE 'FUNC NM'  WHERE NM = FUNC FILE NAME FOR DISTORTION FUNCTION.
00242	C  TYPE 'STEP N'  WHERE N = STEPS DISPLACEMENT FOR 2ND AND 3RD RUNS.
00244	C  TYPE 'CENTR F' WHERE F = CENTER FOR DISTORTION FUNC. (0 TO 1.0?)
00245	C  IF ABS(F)≥100 FUNC WILL ADD, NOT MULT.  (BUT LAST DIGIT WILL MULT FUNC.)
00250		COMMON/DRW/JDRW(2000)/FU/FUJ(512),JJX,RDIV,ADML
00300		COMMON /EDGEC/ A0,A1,A2,A3,A4,A5,A6,A7,
00366		1 DEBUG,T(1),XP(1),YP(1),PARMAX,
00432		1 HALF,FILE,RR,COH,RX,RY,CL,SL,D,B,FOUND
00498
00500		DIMENSION LIST5(0/1000),LIST(6,1000)
00564		COMMON /LISTC/ LIST,LIST5,NEWEND,LO
00630
00696		COMMON/COMMAC/BCLIP,TCLIP,BITS,IWID,LINLEN,FLINE,LLINE,
00762		1 LSIDE,RSIDE,DTA,HYSTAB(0/15)
00828
01026
01100
01500		INTEGER FLINE,RSIDE,HYSTAB,TIM1,TIM2,FILEN,FILE,BITS
02200	CC	LOGICAL FUNCTION ADMISS
02300	CC	ADMISS(DTA)=DTA.EQ.-7.OR.(1.LE.DTA.AND.DTA.LE.10)
02310		JDRW(1)=1
02320		JDRW(3)=0
02350		BITS=4
02400	2	CALL TIMER(TIM1)
12800	83	FORMAT(2A5)
17700	204	FORMAT(' TYPE THE FILE NAME'/)
19000	202	FORMAT(' NEWEND=',I4/)
26200	330	TYPE 204
26300		ACCEPT 83,FILE,JFU
26310		IF(FILE.EQ.' ')FILE=JFILE
26311	C  YOU CAN TYPE 'FUNC ' NAME!
26312		IF(FILE.EQ.'T')GO TO 1
26400		IF(FILE.NE.'STEP')GO TO 20
26410		REREAD 21,N,JJX
26420		GO TO 330
26430	21	FORMAT(A5,I)
26440	20	IF(FILE.NE.'CENTR')GO TO 22
26450		REREAD 23,N,RDIV
26451	C  TYPE +100 FOR ADDING INSTEAD OF MULT.
26452		ADML=0
26453		IF(ABS(RDIV).LT.100)GO TO 330
26454		ADML=-1
26455		RDIV=AMOD(RDIV,100.)
26456		IF(RDIV.EQ.0)RDIV=1.
26460		GO TO 330
26470	23	FORMAT(A5,F)
26500	22	IF(FILE.EQ.'FUNC')GO TO 13
26558		JFILE=FILE
26616		IF(FILE.NE.'X')GO TO 4
26674		IF(JDRW(3).EQ.0)CALL EXIT
26732		GO TO 3
26790	C  GIVE BLANK FILE NAME TO USE SAME ONE OVER, X=EXIT.
26850	4	REWIND 1
26900		CALL IFILE(1,FILE)
27000		READ(1) FILEN,RR,FLINE,LLINE,LSIDE,RSIDE,NEWEND,
27100		1 ((LIST(I,N),I=1,6),N=1,NEWEND)
27200		TYPE 202,NEWEND
27300		IF(NEWEND.GE.1000)GO TO 252
27400		DO 335 I=NEWEND*6+1,6000
27500	335	LIST(I,1)=0
27900	252	CALL PLOU
29000	261	CALL TIMER(TIM2)
29100		TIM3=FLOAT(TIM2-TIM1)/60000.
29200	163	FORMAT(' COMPUTE TIME = ',F5.3/)
29300		TYPE 163,TIM3
29350		GO TO 330
29400	1	NEWEND=-1
29500		CALL PLOU
29600		GO TO 2
29700	
29800	3	CALL DD
29900	13	CALL DPFUN(JFU)
31960		GO TO 330
32100		END